Deutsche Edition 1/Deutsche Edition 1.iso/amok/amok_lha/amok38.lha/CoCo/Euclid.obn

Text File | 1993-08-15 | 217b | 17 lines

IMPLEMENTATION Euclid;
VAR
  m ,n,temp,r: INTEGER;
BEGIN
  IF n<m  THEN
    temp := n;
    n := m;
    m := temp;
  END;
  r:=n-m*(n/m);
  WHILE r>0 DO
    n := m;
    m := r;
    r := n - m*(n/m);
  END;
END Euclid.